home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / System / LocaleCS / documents / ARexxManuál / KCON_Install.lha / kcon_install / Instalace < prev    next >
Text File  |  2000-02-12  |  5KB  |  139 lines
  1. ; $VER: Installation 1.3 (31.05.94)
  2.  
  3. FailAt 21
  4.  
  5. Echo "*E[10x*E[15y*E[4mKingCON v1.3 install-script. Copyright © 1993 David Larsson*E[0m"
  6. Echo "Upravil a doplnil: Tomáî Procházka"
  7. Echo ""
  8.  
  9. ; We shouldn't install an earlier or identical version of KingCON-handler
  10. ; without asking first.
  11. Version >NIL: L:KingCON-handler VERSION 1 REVISION 3
  12. IF NOT WARN
  13.     Echo "Jiù je nainstalovan ª`version L:KingCON-handler`º !"
  14.     Ask  "*E[2mChcete pêesto pokraçovat v instalaci *E[0m(Y/N) ?"
  15.     IF NOT WARN    ; User aborts!
  16.         Echo ""
  17.         Echo "Instalace ukonçena"
  18.         SKIP End
  19.     ENDIF
  20.     Echo ""
  21. ENDIF
  22.  
  23. CPU >NIL: CHECK 68020        ; This checks for the presence of
  24.                 ; a faster processor and copies
  25.                 ; the appropriate file
  26.                 ; Note that KingCON-handler.020
  27.                 ; is renamed!!
  28. IF WARN
  29.     Echo "Kopíruji 68000 verzi *E[1mKingCON-handleru do L:*E[0m..." NOLINE
  30.     Copy Handler/KingCON-handler L: CLONE
  31. ELSE
  32.     Echo "Kopíruji 68020 verzi *E[1mKingCON-handleru do L:*E[0m..." NOLINE
  33.     Copy Handler/KingCON-handler.020 L:KingCON-handler CLONE  ; Renamed!
  34. ENDIF
  35.  
  36. Echo "Hotovo"
  37.  
  38. Echo "Kopíruji *E[1mKingCON-mountlist do DEVS:*E[0m..." NOLINE
  39. Copy Handler/KingCON-mountlist DEVS: CLONE
  40. Echo "Hotovo"
  41.  
  42. ; Odstranëní pûvodního CON:
  43. Assign CON: DISMOUNT
  44. Assign RAW: DISMOUNT
  45.  
  46. Echo "Do resetu je pûvodní *E[1mCON:*E[0m nahrazen KingCONem..." NOLINE
  47. Mount CON: from DEVS:KingCON-mountlist
  48. Mount RAW: from DEVS:KingCON-mountlist
  49. Echo "Hotovo"
  50. Echo ""
  51.  
  52. Echo "Nyní se musíte rozhodnout, zda chcete výtvoêit nové výstupní"
  53. Echo "zaêízení KCON: a KRAW: nebo chcete pûvodní CON: a RAW: nahra-"
  54. Echo "dit novým KingCONem. Druhou moùnost vám vêele doporuçuji..."
  55. Ask  "*E[2mMám tedy pûvodní zaêízení nahradit ?*E[0m (Y/N) ?"
  56.  
  57. IF WARN
  58.   Set ODP "1"
  59. ELse
  60.   Set ODP "0"
  61. EndIf
  62.  
  63. Echo ""
  64. Search >NIL: FROM s:user-startup SEARCH DEVS:KingCON-mountlist
  65. IF NOT WARN ; No commands were found
  66.    Echo "*E[1mByl nalezen nëjaký pêíkaz související s KingCONem !!!*E[0m"
  67.    Echo "Bylo by lepîí, kdyby jste vîe pûvodní smazali, aby nemohlo"
  68.    Echo "dojit k pêípadnému konfliktu."
  69.    Ask  "*E[2mMám pokraçovat v instalaci ?*E[0m (Y/N)"
  70.     IF NOT WARN    ; Ukonçení instalace
  71.           Echo ""
  72.          Echo "Instalace ukonçena"
  73.       SKIP End
  74.         EndIf
  75.    Echo ""
  76. ENDIF
  77.  
  78. IF $ODP EQ "1"  ; Náhrada
  79.   Echo "Pêidávám do ªS:User-Startupº..."
  80.   Echo " pêíkazy pro odstranëní ªCON:º a ªRAW:º..." NOLINE
  81.   Echo "" >> S:User-Startup
  82.   Echo ";Následující êádky nahrazují pûvodní ªCON:º novým KingCONem" >> S:User-Startup
  83.   Echo "Assign CON: DISMOUNT" >> S:User-Startup
  84.   Echo "Assign RAW: DISMOUNT" >> S:User-Startup
  85.   Echo "Hotovo"
  86.   Echo " pêíkazy pro namontování novéhé ªCON:º a ªRAW:º..." NOLINE
  87.   Echo "Mount CON: from DEVS:KingCON-mountlist" >>s:user-startup
  88.   Echo "Mount RAW: from DEVS:KingCON-mountlist" >>s:user-startup
  89.   Echo ";End (KingCON)" >> S:User-Startup
  90.   Echo "" >> S:User-Startup
  91.   Echo "Hotovo"
  92. Else ; Pêídání KCON: KRAW:
  93.   Echo "Pêidávám do ªS:User-Startupº namontování ªKCONº a ªKRAW:º..." NOLINE
  94.   Echo ";Následující êádky montují nové výstupní zaêízení ªKCON:º a ªKRAW:º" >> S:User-Startup
  95.   Echo "Mount KCON: from DEVS:KingCON-mountlist" >>s:user-startup
  96.   Echo "Mount KRAW: from DEVS:KingCON-mountlist" >>s:user-startup
  97.   Echo "" >> S:User-Startup
  98.   Echo "Hotovo"
  99. EndIf
  100.  
  101. Echo ""
  102. Echo "Instalace KingCONu je hotova. Vîe probëhlo bez problémû."
  103. Echo ""
  104. Ask "*E[2mChcete jeîtë nainstalovat upravený ªS:Shell-Startup-superº ?*E[0m (Y/N)"
  105.  
  106. IF WARN
  107.   Echo "Zadejte prosím jak chcete být oslovován: " NOLINE
  108.   Set >nil: JMENO ?
  109.   Echo "; $VER: Shell-Startup 40.2 (18.2.99) Tomáî Procházka" >T:A_ShellS
  110.   Echo "; Datum instalace: `Date`" >>T:A_ShellS
  111.   Echo "" >>T:A_ShellS
  112.   Echo "Echo *"**E[0;0H**E[J*" " >>T:A_ShellS
  113.   Echo "Echo *"**E[10x**E[15yVítám vás $JMENO v Shellu ç.*$process*"" >>T:A_ShellS
  114.   Echo "Echo *"*"" >>T:A_ShellS
  115.   Echo "Prompt *"RC=(**E[2m%r**E[0m) Pêíkaz **E[1m>**E[0m *" " >>T:A_ShellS
  116.   Echo "" >>T:A_ShellS
  117.   Join T:A_ShellS data/B_ShellS TO S:Shell-Startup-super
  118.   Copy Data/SuperShell SYS:System/
  119.   Copy Data/SuperShell.info Sys:System/
  120.   Echo ""
  121.   Echo "V adresáêi ªSys:Systemº se nyní nachází soubor *E[1mSuperShell*E[0m,"
  122.   Echo "který slouùí ke spuîtëní SuperShellu. Uvnitê tohoto souboru je"
  123.   Echo "imlicitnë nastavená velikost okna, pokud vám nebude vyhovovat,"
  124.   Echo "lze velikost zmënit uvnitê souboru nebo pokud jej budete"
  125.   Echo "spouîtët z pêíkazového êádku nebo jiného programu, mûùete jej"
  126.   Echo "volat s parametrem:"
  127.   Echo "*E[1m  SuperShell ªRohX,RohY,Îíêka,Výîkaº *E[0m(RohX,RohY - souêadnice)"
  128.   Echo ""
  129.   Echo "Instalace je nyní kompletní. Doufám, ùe budete spokojen..."
  130.   Echo "Doporuçuji vám prostudovat pêíloùenou dokumentaci (i v çeîtinë)."
  131.  
  132. EndIF
  133.  
  134. LAB End
  135.  
  136. Echo ""
  137. Echo ""
  138. Echo "                                    *E[0 p*E[3mNyní mûùete okno zavêít!*E[0m" NOLINE
  139.